home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / findch2r / frmdoort.frm < prev    next >
Text File  |  1999-09-07  |  41KB  |  1,563 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
  4. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  5. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  6. Begin VB.Form frmDoorToTheNet 
  7.    BackColor       =   &H00000000&
  8.    Caption         =   "The DoorWay To The Net"
  9.    ClientHeight    =   7935
  10.    ClientLeft      =   150
  11.    ClientTop       =   720
  12.    ClientWidth     =   10530
  13.    Icon            =   "frmDoorToTheNet.frx":0000
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   7935
  17.    ScaleWidth      =   10530
  18.    ShowInTaskbar   =   0   'False
  19.    Begin MSComctlLib.ProgressBar PBar 
  20.       Height          =   255
  21.       Left            =   120
  22.       TabIndex        =   10
  23.       Top             =   7560
  24.       Width           =   1695
  25.       _ExtentX        =   2990
  26.       _ExtentY        =   450
  27.       _Version        =   393216
  28.       Appearance      =   0
  29.    End
  30.    Begin VB.Timer Timer1 
  31.       Interval        =   1000
  32.       Left            =   9360
  33.       Top             =   120
  34.    End
  35.    Begin MSComDlg.CommonDialog dlgEdit 
  36.       Left            =   9960
  37.       Top             =   840
  38.       _ExtentX        =   847
  39.       _ExtentY        =   847
  40.       _Version        =   393216
  41.    End
  42.    Begin VB.Timer tmrWinClass 
  43.       Interval        =   1000
  44.       Left            =   -240
  45.       Top             =   7920
  46.    End
  47.    Begin VB.TextBox txtStatus 
  48.       BackColor       =   &H80000001&
  49.       Enabled         =   0   'False
  50.       Height          =   285
  51.       Left            =   2640
  52.       TabIndex        =   7
  53.       Top             =   7560
  54.       Width           =   6255
  55.    End
  56.    Begin VB.ComboBox txtAddress 
  57.       BackColor       =   &H80000001&
  58.       ForeColor       =   &H000000FF&
  59.       Height          =   315
  60.       Left            =   1080
  61.       Sorted          =   -1  'True
  62.       TabIndex        =   6
  63.       Top             =   960
  64.       Width           =   4935
  65.    End
  66.    Begin VB.OptionButton optexcite 
  67.       BackColor       =   &H80000012&
  68.       Caption         =   "HotBot"
  69.       ForeColor       =   &H000000FF&
  70.       Height          =   255
  71.       Left            =   8520
  72.       MousePointer    =   10  'Up Arrow
  73.       TabIndex        =   4
  74.       ToolTipText     =   "Excite Search Engine"
  75.       Top             =   1080
  76.       Width           =   255
  77.    End
  78.    Begin VB.OptionButton optLycos 
  79.       BackColor       =   &H80000012&
  80.       Caption         =   "Lycos"
  81.       ForeColor       =   &H000000FF&
  82.       Height          =   375
  83.       Left            =   8520
  84.       MousePointer    =   10  'Up Arrow
  85.       TabIndex        =   3
  86.       ToolTipText     =   "Lycos Search Engine"
  87.       Top             =   600
  88.       Width           =   255
  89.    End
  90.    Begin VB.OptionButton optNetscape 
  91.       BackColor       =   &H80000012&
  92.       Caption         =   "Netscape"
  93.       ForeColor       =   &H000000FF&
  94.       Height          =   255
  95.       Left            =   6960
  96.       MousePointer    =   10  'Up Arrow
  97.       TabIndex        =   2
  98.       ToolTipText     =   "Netscape Search Engine"
  99.       Top             =   1080
  100.       Width           =   255
  101.    End
  102.    Begin VB.OptionButton optYahoo 
  103.       BackColor       =   &H80000007&
  104.       Caption         =   "Yahoo"
  105.       ForeColor       =   &H000000FF&
  106.       Height          =   255
  107.       Left            =   6960
  108.       MousePointer    =   10  'Up Arrow
  109.       TabIndex        =   1
  110.       ToolTipText     =   "Yahoo Search Engine"
  111.       Top             =   600
  112.       Width           =   255
  113.    End
  114.    Begin InetCtlsObjects.Inet Inet1 
  115.       Left            =   120
  116.       Top             =   1440
  117.       _ExtentX        =   1005
  118.       _ExtentY        =   1005
  119.       _Version        =   393216
  120.    End
  121.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  122.       Height          =   5895
  123.       Left            =   120
  124.       TabIndex        =   0
  125.       Top             =   1440
  126.       Width           =   10335
  127.       ExtentX         =   18230
  128.       ExtentY         =   10398
  129.       ViewMode        =   1
  130.       Offline         =   0
  131.       Silent          =   0
  132.       RegisterAsBrowser=   0
  133.       RegisterAsDropTarget=   1
  134.       AutoArrange     =   -1  'True
  135.       NoClientEdge    =   0   'False
  136.       AlignLeft       =   0   'False
  137.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  138.       Location        =   ""
  139.    End
  140.    Begin VB.Label Label2 
  141.       Caption         =   "Label2"
  142.       Height          =   255
  143.       Left            =   -600
  144.       TabIndex        =   11
  145.       Top             =   7920
  146.       Width           =   615
  147.    End
  148.    Begin VB.Label lblStatus 
  149.       BackColor       =   &H80000012&
  150.       Caption         =   "Status:"
  151.       ForeColor       =   &H000000FF&
  152.       Height          =   255
  153.       Left            =   2040
  154.       TabIndex        =   9
  155.       Top             =   7560
  156.       Width           =   615
  157.    End
  158.    Begin VB.Label lblSearchit 
  159.       BackColor       =   &H80000015&
  160.       Caption         =   "Search On Yahoo!"
  161.       BeginProperty Font 
  162.          Name            =   "Lucida Sans"
  163.          Size            =   12
  164.          Charset         =   0
  165.          Weight          =   400
  166.          Underline       =   0   'False
  167.          Italic          =   -1  'True
  168.          Strikethrough   =   0   'False
  169.       EndProperty
  170.       ForeColor       =   &H000000FF&
  171.       Height          =   375
  172.       Left            =   7260
  173.       MousePointer    =   10  'Up Arrow
  174.       TabIndex        =   8
  175.       ToolTipText     =   "Search Yahoo Search Engine"
  176.       Top             =   180
  177.       Width           =   2415
  178.    End
  179.    Begin VB.Image imgLycosSearch 
  180.       Height          =   330
  181.       Left            =   8520
  182.       Picture         =   "frmDoorToTheNet.frx":08CA
  183.       Top             =   6120
  184.       Width           =   1260
  185.    End
  186.    Begin VB.Line Line4 
  187.       BorderColor     =   &H000000FF&
  188.       X1              =   9840
  189.       X2              =   10560
  190.       Y1              =   735
  191.       Y2              =   735
  192.    End
  193.    Begin VB.Image imgNetscape 
  194.       Height          =   330
  195.       Left            =   7155
  196.       Picture         =   "frmDoorToTheNet.frx":1444
  197.       Top             =   1020
  198.       Width           =   1185
  199.    End
  200.    Begin VB.Image imgYahoo 
  201.       Height          =   285
  202.       Left            =   7200
  203.       Picture         =   "frmDoorToTheNet.frx":1F66
  204.       Top             =   645
  205.       Width           =   1305
  206.    End
  207.    Begin VB.Image imgexcite 
  208.       Height          =   390
  209.       Left            =   8760
  210.       Picture         =   "frmDoorToTheNet.frx":2A30
  211.       Top             =   960
  212.       Width           =   975
  213.    End
  214.    Begin VB.Image ImgLycos 
  215.       Height          =   375
  216.       Left            =   8760
  217.       Picture         =   "frmDoorToTheNet.frx":355A
  218.       Top             =   600
  219.       Width           =   945
  220.    End
  221.    Begin VB.Image Image3 
  222.       Height          =   495
  223.       Left            =   4680
  224.       Top             =   3480
  225.       Width           =   1215
  226.    End
  227.    Begin VB.Image imgYahooChat 
  228.       Height          =   270
  229.       Left            =   5200
  230.       MousePointer    =   10  'Up Arrow
  231.       Picture         =   "frmDoorToTheNet.frx":3FDC
  232.       ToolTipText     =   "Yahoo Chat"
  233.       Top             =   315
  234.       Width           =   1515
  235.    End
  236.    Begin VB.Image imgYahoomail 
  237.       Height          =   315
  238.       Left            =   3190
  239.       MousePointer    =   10  'Up Arrow
  240.       Picture         =   "frmDoorToTheNet.frx":4B6E
  241.       ToolTipText     =   "Yahoo Mail"
  242.       Top             =   300
  243.       Width           =   1110
  244.    End
  245.    Begin VB.Image imgHotmail 
  246.       Height          =   540
  247.       Left            =   4440
  248.       MousePointer    =   10  'Up Arrow
  249.       Picture         =   "frmDoorToTheNet.frx":55EC
  250.       ToolTipText     =   "MSN HotMail"
  251.       Top             =   240
  252.       Width